library(tidyverse)
library(here)
library(plotly)
df <- read_csv(here('ESS_faculty/data/ESS_H.csv'))
ggplotly(df %>%
ggplot(aes(x = Years, y = H, color = Name)) +
geom_point() +
theme_linedraw() +
labs(x = "Years since PhD", y = "H index")
)
bar_df <- read_csv(here('ESS_faculty/data/H_bar.csv'))
ggplotly(bar_df %>%
ggplot() +
geom_col(aes(x = Name, y = H, fill = Years)) +
theme_linedraw() +
theme(axis.text.x = element_text(angle = 90)) +
labs(y = 'H index', x = ''))
ggplotly(bar_df %>%
ggplot(aes(x = Years, y = H, color = Name)) +
geom_point() +
labs(y = 'H index', x = 'Years since PhD') +
theme_linedraw() +
theme(legend.title = element_blank())
)
bar_df_unique <- read_csv(here('ESS_faculty/data/H_bar_unique_year.csv'))
ggplotly(bar_df_unique %>%
ggplot() +
geom_col(aes(x = Years, y = H, fill = Name)) +
labs(x = 'Years since PhD', y = 'H index') +
theme_linedraw() +
theme(legend.title = element_blank())
)